home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / LISPM-FO.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  17 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:19:25 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/lispm-fonts.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ù┬┴!ê┴├─╚╞╔%ê+└╩!¼ô╩╦─╚╞╔%ê+└╠!¼ì═╩╠\"ê╬╠!ê╧╠!ê└╨!¼ë═╩╨\"ê╧╨!ê─ç" [find-face variable make-face "-*-helvetica-medium-r-*-*-*-120-*-*-*-*-*-*" nil screen font face set-face-1 3 variable-bold "-*-helvetica-bold-r-*-*-*-100-*-*-*-*-*-*" variable-italic copy-face make-face-unbold make-face-italic variable-bold-italic] 6)
  14. (defconst lispm-font-to-face '(("tvfont" . default) ("cptfont" . default) ("cptfontb" . bold) ("cptfonti" . italic) ("cptfontbi" . bold-italic) ("base-font" . default) ("bigfnt" . bold) ("cmb8" . variable-bold) ("higher-medfnb" . bold) ("higher-tr8" . default) ("medfnb" . bold) ("medfnt" . normal) ("medfntb" . bold) ("wider-font" . bold) ("wider-medfnt" . bold) ("mets" . variable-large) ("metsb" . variable-large-bold) ("metsbi" . variable-large-bold-italic) ("metsi" . variable-large-italic) ("cmr5" . variable) ("cmr10" . variable) ("cmr18" . variable) ("cmold" . variable) ("cmdunh" . variable) ("hl10" . variable) ("hl10b" . variable-bold) ("hl12" . variable) ("hl12b" . variable-bold) ("hl12bi" . variable-bold-italic) ("hl12i" . variable-italic) ("hl6" . variable) ("hl7" . variable) ("tr10" . variable) ("tr10b" . variable-bold) ("tr10bi" . variable-bold-italic) ("tr10i" . variable-italic) ("tr12" . variable) ("tr12b" . variable-bold) ("tr12bi" . variable-bold-italic) ("tr12i" . variable-italic) ("tr18" . variable-large) ("tr18b" . variable-large-bold) ("tr8" . variable) ("tr8b" . variable-bold) ("tr8i" . variable-italic) ("5x5" . small) ("tiny" . small) ("43vxms" . variable-large) ("courier" . bold) ("adobe-courier10" . default) ("adobe-courier14" . bold) ("adobe-courier10b" . bold) ("adobe-courier14b" . bold) ("adobe-hl12" . variable) ("adobe-hl14" . variable) ("adobe-hl14b" . variable-bold)) "\
  15. Alist of LISPM font names to Emacs face names.")
  16. (byte-code "└┴Mê┬├Mê─┼Mç" [lispm-font-to-face #[(lispm-font) "9½ä┴!┬├ù╞╟\"½å╚ò├O╔\n\"Aë½É╦ !½â ¬Å╠═ \"ê╬¬ç╠╧û\"ê╬*ç" [lispm-font symbol-name t nil face case-fold-search string-match "^fonts:+" 0 assoc lispm-font-to-face find-face message "warning: unknown face %s" default "warning: unknown Lispm font %s"] 3] lispm-fontify-hack-local-variables #[nil "└┬├!¡â┬─!)¡₧èî┼êe`}êebê╞╟┼└#½ê╚ö╚ò|ê¬q╔ *ç" [t case-fold-search looking-at "[     ]*;.*-\\*-.*fonts[     ]*:.*-\\*-" ".*" nil re-search-forward "[0-9a-zA-Z*]" 0 hack-local-variables] 4] lispm-fontify-buffer #[nil "èebê└ ê┴`┴┼╞┴╟#½Σ╚╔!êg╚╩!ê\n╦U½à╞cê¬e\n╠U½ÿ ½Ä `U¼ë═╬ `\" @\"ê` A¬H\n╧W¼C\n╨V¼>\n╧ZëGY¼3 ½Ä `U¼ë═╬ `\" @\"ê╥\n8! B`¬ ¡Ä `U?¡ê═╬ `\" @\",ç" [lispm-fontify-hack-local-variables nil c p font-stack search-forward "" t delete-char -1 1 6 42 set-extent-face make-extent 48 90 fonts lispm-font-to-face] 4]] 2)
  17.